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SUMMARY 


Since  the  transonic  wind  tunnel  data  processing  installation, 
which  is  based  on  a PDP  8-1  computer,  was  installed  in  1968  a 
considerable  library  of  standard  programs  have  been  produced.  This 
program  library  covers  all  types  of  testing  commonly  carried  out  in 
the  wind  tunnel.  However  there  remains  the  possibility  of  unusual 
tests  being  required  which  are  not  covered  by  existing  programs. 

This  memorandum  describes  modifications  to  the  Digital  Equipment 
Corporation  FOCAL  language  (FOCAL  is  a keyboard  oriented  interpretive 
language  similar  to  BASIC)  which  permit  the  tunnel  instrumentation, 
display  and  plotter  to  be  operated  by  FOCAL  programs.  Using  this 
extended  FOCAL  language  it  should  be  possible  to  rapidly  mite  and 
de-bug  programs  to  meet  unusual  requirements  not  covered  by  the  standard 
program  library. 
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i.  INTRODUCTION 


In  1968  a data  processing  installation  based  on  a POP  8-1  cost- 
puter  was  installed  in  the  transonic  wind  tunnel.  Since  that  tine  a 
considerable  number  of  standard  programs  have  been  produced  which  cover 
all  types  of  testing  commonly  carried  out  in  the  transonic  tunnel. 

The  current  standard  library  includes  programs  to: 

(a)  compute  and  display  tunnel  Mach  number1, 

(b)  collect,  reduce  to  coefficient  form,  display, 
plot,  print  and  store  on  DEC  tape,  pressure 
measurements  obtained  from  multiple  Scanivalves2, 

(c)  collect,  reduce  to  body  axes  coefficients,  shift 
to  wind  axes  coefficients,  display,  plot,  print 
and  store  on  DEC  tape,  six  component  force  measure- 
ments3«4, 

(d)  perform  curve  fitting,  axes  shifting  and  matrix 
inversion  to  assist  with  strain  gauge  force  balance 
calibration^, 

(e)  translate  tunnel  force  and  pressure  data  into  a 
DEC  tape  format  compatible  with  the  site  PDP  10 
computer  system6, 

(f)  cross  plot  a wide  range  of  force  coefficients 
against  one  another, 

(g)  edit  data  and  produce  formatted  print  out  suitable 
for  direct  reproduction  in  publications. 

The  majority  of  the  standard  programs  are  written  in  assembly 
language  (PAL-D)11  to  make  maximum  use  of  the  available  core  storage 
(12K  words) . 

It  is  probable  that  from  time  to  time  unusual  tests  will  be 
required  which  are  not  covered  by  the  standard  programs.  If  the  task 
is  of  sufficient  magnitude,  writing  a new  assembly  language  program 
or  modifying  an  existing  program  would  be  justified.  If  the  task  is 
a minor  one  the  program  writing  and  de-bugging  time  would  not  be 
acceptable. 

In  this  memorandum  modifications  to  the  Digital  Equipment 
Corporation  FOCAL  language  are  described  which  permit  FOCAL  programs 
to  operate  all  the  tunnel  instrumentation,  the  display  and  the  plotter. 
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FOCAL  is  a keyboard  oriented,  conversational,  interpretive  language 
similar  to  BASIC  with  real  time  de-bugging  so  program  development  is 
rapid.  Using  the  extended  FOCAL  language  described  here  it  should 
be  possible  to  quickly  develop  new  data  handling  programs.  Due  to 
the  limited  variable  storage  and  the  slow  speed  of  execution,  FOCAL 
data  reduction  programs  are  not  suitable  for  major  tasks  which  involve 
large  quantities  of  data. 

The  extended  FOCAL  language  and  the  FOCAL  routines  presented 
here  were  originally  written  in  the  period  1974-1976.  When  necessary 
program  modifications  were  carried  out  to  keep  up  with  system 
hardware  changes.  The  version  of  extended  FOCAL  presented  here  is 
compatible  with  the  current  (Feb.  1979)  hardware  configuration. 

2.  PROGRAM  USAGE 

2.1  Loading  and  Operating 

The  present  extended  FOCAL  program  is  stored  as  three  systems 
programs  FC29,  FCL9  and  ST9K.  The  procedure  for  loading  from  the 
disk  is: 

. FC29 

. FCL9 

. CALL  (USER  PROGRAM) 

. ST9K 

If  no  user  program  is  to  be  loaded  the  dvrany  program  NUL9  must 
be  called.  When  successfully  loaded  the  program  types: 

? 00.00 

* 

7 8 

The  program  is  then  ready  to  accept  a command  ' from  the  teletype. 

Since  extended  FOCAL  operates  with  the  interrupt  turned  off 
the  +C  keyboard  interrupt  does  not  work.  TO  persuade  the  program 
to  listen  to  a command  when  it  does  not  want  to,  it  is  necessary 
to  stop  and  restart  at  0200  in  Field  0. 

2.2  Capabilities 

All  the  standard  capabilities7,8  of  FOCAL  8,  1969  including 
the  extended  functions  are  still  available.  The  8K  overlay7*8 
is  incorporated  and  there  is  storage  available  for  8000  (decimal) 
characters  of  indirect  program  and  124  (decimal)  identified  variables. 


i 


The  new  functions  that  have  been  added  are  described  below: 

(i)  FNEW  (0,  X) . Read  input  from  device  number  X.  The 
current  device  numbers  are  listed  below: 


Device 

Number  (decimal) 


Input 


T 

Ident  No. 
Job  No. 


(Static  Pressure) 
(Total  Pressure) 
(Base  Pressure) 
(Normal  Force) 
(Pitching  Moment) 
(Axial  Force) 

(Side  Force) 

(Yawing  Moment) 
(Rolling  Moment) 
(Incidence) 

(Balance  Roll  Angle) 
(Model  Roll  Angle) 
(Temperature) 


The  FNEW  (0,  X)  Function  returns  to  Focal  with  an  integer 
value  containing  all  the  significant  figures  from  the  device 
selected  i.e.  a temperature  of  16.20  will  be  read  as  1620.  There- 
fore when  reading  P,  H,  Pb,  0,  or  T the  value  returned  by 

the  FNEW  function  must  have  a decimal  point  inserted  at  the 
appropriate  point.  Readings  of  the  strain  gauge  equipment  outputs 
Z,  M,  X,  Y , N and  L and  the  temperature  T must  be  initiated  from 
the  record  push  button.  Details  of  the  necessary  programing  is 
contained  in  (vi)  below: 

(ii)  FNEW  (1,  X) . Display  integer  part  of  X (<  2000)  on 
Machmeter.  This  function,  and  all  the  other  new 
functions  which  do  not  return  to  FOCAL  with  a numerical 
result,  is  called  by  an  instruction  like  SET  Q • FNEW 
where  Q is  a dummy  variable  reserved  for  this  purpose. 

(iii)  FNEW  (2).  start  data  logger  scan. 

(iv)  FNEW  (3).  Stop  data  logger  scan  and  return  Scanivalves  to 
port  0. 

(v)  FNEW  (4,  X). 

X * 0,  Read  data  logger  byte  1. 

X ■ 1,  Read  data  logger  bytes  2 and  3. 


Byte  1 is  an  integer  where  the  hundreds  digit  is  the 
Scanivalve  number  and  the  tens  and  units  digits  the 
port  number. 

Bytes  2 and  3 give  an  integer  containing  the  sign  and 
significant  figures  of  the  analogue  to  digital 
converter  output.  When  using  extended  Focal,  bytes 
2 and  3 must  be  read  immediately  after  byte  1 and  if 
a number  of  readings  are  to  be  taken  from  the  data 
logger  they  must  be  read  consecutively  without  any 
intervening  programming.  The  following  program 
example  will  read  and  type  out  N data  logger  readings 
at  logger  stepping  speeds  of  up  to  10  per  second. 

1.02  SET  Q - FNEW  (2) 

1.04  FOR  A * 1,  1,  Ni  DO  2 

1.06  SET  9 = FNEW  (3) 

1.08  FOR  A - 1,  1,  N;  DO  3 
1.10  QUIT 

2.01  SET  X (A)  = FNEW  (4,  0) 

2.02  SET  2(A)  = FNEW  (4,  1) 

3.01  TYPE  X (A) , Z (A) , • 

(vi)  FNEW  (5).  This  function  checks  the  state  of,  and  then 
clears,  the  record  push  button  flag.  If  the  flag  is 
set,  the  function  returns  with  the  value  4096,  if  not, 
with  the  value  0.  As  noted  previously  readings  of 
temperature  and  strain  gauge  gear  output  are  initiated 
by  the  record  push  button.  These  readings  must  be 
taken  as  soon  as  the  button  is  pushed.  The  following 
program  example  reads  and  types  out  T,  Z,  H,  X,  Y,  N 
and  L when  the  record  button  is  pressed: 


1.02  IF  (FNEW  (5))  1.02,  1.02,  2.05 


2.05  S T = FNEW  (0,  13) 

2.07  FOR  A * 4,  1,  9;  SET  X (A)  = FNEW  (0,  A) 

2.08  GOTO  3.03 

3.03  TYPE  T,  ! 

3.05  FOR  A = 4,  1,  9;  TYPE  X (A),  ! 

3.07  QUIT 

(Vii)  FDIS  (0,  Z,  X0,  Y0,  XI,  Yl) 

This  function  is  used  to  operate  the  VT01  storage  display 
unit^O.  <rhe  operations  available  are  listed  below: 


Z ■ 0)  Erase  screen 

Z » 1 Draw  a linear  vector  from  X0,  Y0  to  XI,  Yl 


... 
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Z ■ 2 Draw  an  arc  of  5.625°  clockwise  starting  at 

X0,  Y0  centred  at  XI,  Yl. 

Z ■ 3 Draw  an  arc  of  90°  clockwise  starting  at  X0, 

Y0  centred  at  Xl,  Yl. 

Z * 4)  Display  joystick  cursor. 

Z = 5 Plot  a point  at  X0,  Y0. 

(Set  Xl  = X0  and  Yl  - Y0) . 

Z - 6 Plot  a (O)  symbol  at  X0,  Y0. 

(Set  Xl  - X0  and  Yl  - Y0) . 

Z = 7 Plot  a (+)  symbol  at  X0,  Y0. 

(Set  Xl  = X0  and  Yl  = Y0) . 

3 = 8)  Read  X coordinate  of  cursor 

(Function  returns  with  1024  + X) 

Z = 9)  Read  Y coordinate  of  cursor 

(Function  returns  with  1024  + Y) 

Z «=  10)  Check  state  of  and  then  clear  cursor  interrupt 
flag.  If  flag  is  set,  the  function  returns 
with  the  value  4096,  if  not,  with  the  value  0. 

The  visible  area  of  the  screen  is  approximately  X * ±256, 

Y * ±320,  the  total  addressable  area  is  ±511  units  square. 

(viii)  FDIS  (1,  Z,  X,  Y). 

This  function  is  used  to  operate  the  calcomp  565  incremental 
plotter.  The  operations  available  are  listed  below: 

Z = 0)  Reset  plotter  coordinates  to  0,  0. 

Z * 1 Pen  up  - move  from  current  location  to  X,  Y 

in  a straight  line. 

Z = 2 Pen  down  - move  from  current  location  to  X,  Y 

in  a straight  line. 

Z ■ 3 Plot  a (+)  symbol  at  X,  Y. 

Z - 4 Plot  a (X)  symbol  at  X,  Y. 

The  value  of  Y used  must  be  in  the  range  0 to  4096  and,  if 
the  plotter  coordinates  are  reset  with  the  pen  aligned  with 
the  right  hand  border,  X may  vary  in  the  range  0 to  1000. 

The  positive  direction  of  X and  Y pen  travel  is  leftwards 
and  upwards. 


2.3 


Examples 


The  following  program  segments  for  use  with  extended  FOCAL  cover 
some  of  the  forseeable  possible  requirements.  It  is  intended  that 
these  examples  illustrate  the  type  of  problem  that  is  suited  to  this 
approach  rather  than  being  a comprehensive  compendium  of  user  programs. 

(a)  Mach  number  display. 


When  the  tunnel  is  being  operated  with  a FOCAL  data 
handling  program  the  normal  assembly  language  Mach 
number  generation  and  display  routine^  cannot  be  used. 
Since  a display  of  Mach  number  is  usually  required  for 
tunnel  speed  setting,  any  FOCAL  program  for  use  with 
the  tunnel  will  require  its  own  Mach  number  display 
routine.  The  following  program  segment  executed  at 
convenient  intervals  will  meet  this  requirement: 


31.01  S P = FNEW  (0,  1);  S H = FNEW  (0,  2) 

31.02  I (H  - P)  31.03,  31.04,  31.04 

31.03  S H = P 

31.04  S M = FSQT  (5* (FEXP (0.2857*  FLOG (H/P) ) -1) ) 

31.05  S D = FNEW  (1,  M*  1000) 


(b)  Indicated  airspeed  display. 

On  occasions  when  operating  the  tunnel  at  low  speed  it 
is  more  useful  to  display  indicated  airspeed  (IAS) 
rather  them  Mach  number.  The  following  routine  displays 
IAS  on  the  Machmeter. 

31.01  S P = FNEW  (0,  1);  S H = FNEW  (0,  2) 

31.02  I (H  - P)  31.03,  31.04,  31.04 

31.03  S H = P 

31.04  S IA  = 1479.1  * FSQT  (FEXP (0. 2857*  FLOG  ( (H  - P)/ 
2992.1  + 1))-1) 

31.05  S D = FNEW  (1,  IA*10) 

31.06  F D = 1,  1,  50.  S E =0 

31.07  G 31.01 

The  display  is  in  the  form  XXX. X knots. 

(Note:  the  fixed  hardware  decimal  point  location  must  be 
ignored) . If  it  is  desired  to  display  speeds  above 
199.9  knots  the  implicit  decimal  point  location  may  be 
moved  one  place  to  the  right  by  deleting  the  multiplying 
factor  *10  from  line  31.05.  To  change  the  units  of  the 
displayed  speed  simply  alter  the  multiplying  factor  in 
line  31.05.  Lines  31.06  and  31.07  cycle  the  routine  at  a 
convenient  rate  but  if  the  routine  is  to  be  called  from 
the  main  program  when  required,  these  two  lines  should  be 
omitted. 
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(c)  True  airspeed  display. 

It  may  sometimes  be  required  to  display  true  airspeed 
(TAS)  when  operating  the  tunnel.  This  poses  the  problem 
tl^at  the  temperature  which  is  required  for  the  computa- 
tion of  TAS  can  only  be  read  when  the  record  push  button 
is  pressed.  The  following  program  uses  the  waiting  time 
between  TAS  computations  looking  at  the  record  push 
button.  Each  time  the  button  is  pressed  the  temperature 
used  by  the  program  is  updated  to  the  current  value. 


30.01 

30.02 

30.03 

30.04 

30.05 

30.06 


F E = 1,  1,  20;  D 31 
S P = FNEW  (0,  1);  S H = FNEW  (0,  2) 

I (H  - P)  30.04,  30.05,  30.05 
S H = P 

S M = FSQT  (5*  (FEXP  (0.2857*  FLOG  (H/P))-l)) 
S D = FNEW  (1,  M*A*10) ; G 30.01 


31.01  S D = FNEW  (5) 

31.02  I (D)  31.03,  31.03,  31.04 

31.03  R 

31.04  S T0  = FNEW  (0,13) 

31.05  S TT  = (T0/10  + 273. 2)*1. 8/(1  + 0.2*M+2) 

31.06  S A = 29.091  * FSQT  (TT) 

31.07  S E = 20;  G 30.06 

The  display  units  and  decimal  point  location  are  identical 
to  the  IAS  program  described  previously. 

(d)  Free  stream  kinetic  pressure  display. 

To  simplify  the  reduction  of  low  speed  data  to  coefficient 
form  it  may  sometimes  be  convenient  to  operate  the  tunnel 
at  a constant  free  stream  kinetic  pressure  (>jt,V2) . The 
following  routine  displays  *j£.V2  on  the  Machmeter. 


31:01  S P = FNEW  (0,  1);  S H = FNEW  (0,  2) 

31.02  I (H  - P)  31.03,  31.04,  31.04 

31.03  S H = P 

31.04  K=  (5  * (FEXP  (0.2857*FLOG  (H/P) ) -1) ) *P*0. 02371 

31.05  S D = FNEW  (1,  K*  100) 

31.06  F D « 1,  1,  50;  S E = 0 

31.07  G 31.01 

The  display  is  in  the  form  XX. XX  kPa. 

(Note:  the  fixed  hardware  decimal  point  location  must  be 
ignored) . As  before  the  units  and  the  implicit  display 
decimal  point  location  may  be  changed  by  altering  the 
factor  in  line  31.05. 
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(e)  Function  plotting  on  the  screen. 

When  examining  the  results  of  mathematical  analyses  it 
is  often  helpful  to  plot  the  functional  relationship 
between  variables.  For  complex  functions  this  can  be 
a laborious  procedure  if  done  by  hand.  The  following 
program  car)  be  used  to  quickly  plot  functions  on  the 
screen : 

1.01  S Q = FDIS  (0,  0) 

1.02  F X = 300,  1,  300;  D 2 

1.03  Q 

2.01  D 3 

2.02  S Q = FDIS  (0,  5,  X,  Y,  X,  Y) 

Group  3 lines  define  the  function  Y = F(X)  scaled  so  that 
as  X varies  from  -300  to  +300,  Y varies  in  the  range 
±380.  Alternatively  if  X and  Y are  both  functions  of  Z 
line  1.02  can  be  used  to  increment  Z and  both  X and  Y 
defined  in  group  3 lines. 

In  Fig.  1 an  example  of  the  type  of  plot  that  can  be 
produced  is  presented.  The  function  plotted  in  this  figure 
is: 


X = 240e-0'1Z  sin  Z + 100e"0,2Z  sin  20Z  sin  Z 

Y = 240e~0'1Z  cos  Z + 100e"0‘2Z  sin  20Z  cos  Z 

where  Z varies  from  0 to  28  in  0.005  increments. 

(f)  Function  plotting  on  the  plotter. 

Functions  can  be  plotted  on  the  plotter  in  a similar 
manner  to  that  described  above  for  the  screen.  On  the 
plotter  better  results  are  obtained  by  drawing  straight 
lines  between  adjacent  computed  (X,  Y)  points  rather  than 
simply  plotting  the  points.  A basic  function  plotting 
program  is  presented  below: 

1.10  S Q = FDIS  (1,  0) 

1.20  S X = 0;  D 3 

1.30  S Q = FDIS  (1,  1,  V,  Y) 

1.40  F X = 0,  1,  1000;  D 2 
1.50  Q 

2.10  D 3 

2.20  S Q * FDIS  (1,  2,  V,  Y) 

3.01  S V = 1000  - X 


ima 
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Group  3 lines  define  the  function  Y = F(X)  scaled  so 
that  as  X varies  from  0 to  1000  Y varies  in  the  range 
0 to  4096. 

In  Fig.  2 a sample  plot  is  reproduced.  The  function 
plotted  is  X * 200  +100  (Z  + 0.3  cos  62.84Z) 

Y * 500  + 300  (e"°-35z  sin  3.14Z  +0.1  sin  62.84Z) 
where  Z varies  from  0 to  10  in  0.005  steps. 

(g)  Non  standard  real  time  display. 

The  standard  force  reduction  program  has  facilities  for 
the  display  of  the  six  force  and  moment  components  as 
functions  of  either  Mach  number,  sideslip  or  incidence 
angle.  If  a real  time  display  of  a cross  plot  between 
two  force  components,  or  some  other  non  standard  display, 
is  required  a FOCAL  program  can  be  written  to  produce  it. 

The  following  example  plots  the  transonic  range  parameter 
Mach  number  X Lift/Drag  (ML)  as  a function  of  Mach 

D 

number  (M) . Bach  time  the  record  push  button  is  pressed 
a point  is  plotted  on  the  display  and  the  values  of  M 
and  ML  are  printed  on  the  teletype. 

D 

1.01  C ERASE  SCREEN  AND  DRAW  AXES 

1.02  S Z = FDIS  (0,  0) 

1.04  S Z = FDIS  (0,  1,  -250,  -310,  -250,  310) 

1.06  S Z + FDIS  (0,  1,  -250,  -310,  250,  -310) 

2.01  C PUSH  BUTTON? 

2.03  I (FNEW  (5))  31.01,  31.01,  3.02 

3.02  C READ  Z,  M,  X,  Y,  N,  L AND  THETA 

3.04  F A = 4,  1,  10;  S X(A)  = FNEW  (0,  A) 

3.06  C APPLY  BALANCE  INTERACTIONS 

3.08  S Z = ZZ*X (4)  + ZM*X (5)  + ZX*X(6)  + ZY*X(7)  + 

ZN*X (8)  + ZL*X(9) 


3.09 

S 

X = XZ*X (4)  + XM*X (5)  + XX*X (6)  + XY*X(7)  + 

XN*X (8)  + XL*X(9) 

3.11 

C 

CALCULATE  L AND  D 

3.13 

S 

L =-Z*  F cos  (X(10)/5729.6)  + X*  F sin 

(X(10)/ 

5729.6  ) 

3.15 

S 

D = -X*  F cos  (X(10)/5729,6  - Z*  F sin 

(X  (10)/ 

5729.6  ) 

4.02 

C 

DISPLAY  POINT 

4.04 

S 

Z = -310  + 25*M*L/D 

4.06 

S 

X = -250  + 500*M 

4.08 

S 

L = FDIS  (0,  7,  X,  Z,  X,  Z) 

Vi 


5.10  C PRINT  M AND  ML/D 

5.12  T %6.03,  M,  " ",  M* L/D , ! 

5.14  G 2.03 

31.01  C MACH  ROUTINE,  SEE  EXAMPLE  A. 

LAST  INSTRUCTION  G 2.03 

The  variables  ZZ,  ZM,  ZX  etc.  used  in  lines  3.08  and 
3.09  are  equal  to  the  product  of  the  appropriate 
sensitivity  and  inverse  balance  calibration  matrix  element. 
Using  the  terminology  of  reference  4: 

ZZ  = SZ.k’ZZ,  ZM  = SM.k’ZM,  etc. 

XZ  = SZ.k'XZ,  XM  * SM.k'XM,  etc. 

3.  PROGRAM  DETAILS 

3.1  Present  version 

A complete  listing  and  symbol  table  of  the  present  version  of 
the  FOCAL  modifications  are  presented  in  the  appendix.  The  core 
locations  used  are: 

(a)  Field  0,  0035,  0377,  0410  and  4400  to  4577 

(b)  Field  1,  Nil 

(c)  Field  2,  0200  to  2177  and  6200  to  6777. 

The  remainder  of  Field  2 is  available  for  additional  new 
functions.  Since  the  8K  overlay  is  used  Field  1 must  be  left  blank. 

It  was  decided  to  exclude  operation  of  the  line  printer  and 
DEC  tapes  from  the  current  version.  This  was  done  because  a general 
operating  routine  for  these  devices  would  have  been  long  and 
complicated.  If  a need  arises  for  a FOCAL  program  to  control  the 
printer  or  DEC  tapes  it  is  suggested  that  a specific  assembly 
language  segment  be  written  to  cover  the  particular  requirement. 

3.2  Modifications 

The  following  hints  are  aimed  at  assisting  anyone  who  wishes 
to  add  further  new  functions  to  the  current  version  of  extended 
FOCAL.  The  best  guide  to  new  function  writing  is  given  in  Ref.  9 
a copy  of  which  is  held  by  the  author.  The  various  listings  and 
symbols  tables  given  in  Refs.  7-9  do  not  agree  with  each  other  or 
with  the  FOCAL  program  which  we  have.  When  modifying  FOCAL 
itself  it  is  necessary  to  refer  to  a disassembly  of  the  actual 
program. 


IU 


The  current  program  has  two  convenient  entry  points  to  further 
new  functions.  The  FNEW  function  has  been  used  for  values  of  the 
first  argument  of  the  function  from  0 to  5.  If  the  FNEW  function 
is  used  with  a first  argument  greater  than  5 the  program  will  arrive 
at  the  error  return  at  4473  in  field  0 with  the  first  argument  in 
TPS.  To  add  the  functions  FNEW  (6),  FNEW  (7)  etc.  simply  put  a JMP 
instruction  at  4473  and  look  at  the  value  of  TPS.  Similarly  the 
function  FDIS  has  been  used  for  first  arguments  of  0 and  1.  If 
FDIS  is  used  with  other  arguments  the  program  will  arrive  at  the 
error  return  at  1300  in  field  2 with  the  value  of  the  first  argument 
in  INSEL. 

A number  of  useful  instructions  available  in  the  current  program 
are  listed  below: 

(i)  Field  0 

4566  - Return  control  to  FOCAL  via  the  error  reoovery 
routine. 

JMS  I 0053  - Get  integer  part  of  floating  accumulator 
and  bring  it  into  accumulator. 

4540 

ARG 

4566  - This  instruction  string  will  get  the  next 
argument  of  the  function  into  the  floating  accumulator 
and  transfer  control  to  the  following  instruction.  If 
there  are  no  more  arguments  it  will  do  an  error  return 
to  FOCAL. 

JMP  I 0136  - Re-enter  FOCAL  after  execution  of  function. 

(ii)  Field  2 

JMP  ERR  - Return  control  to  FOCAL  via  the  error  recovery 
routine. 

JMP  INSEL- 12  - Returns  control  to  FOCAL  with  the  double 
precision  binary  number  contained  in  the  accumulator 
(high  order  word)  and  LOW  (low  order  word)  transferred 
into  the  floating  accumulator. 

JMS  NEXT  - Get  next  argument  and  store  it  in  INSEL. 

JMS  IN2  - Get  next  two  arguments  and  store  them  in  XX 
and  YY. 

JMS  IN4  - Get  next  four  arguments  and  store  them  in  X0, 

Y0,  XI  and  Yl. 
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3.3  Assembly,  Loading  and  Saving 

Some  difficulty  was  experienced  in  assembling,  loading  and 
saving  the  present  version  of  extended  FOCAL.  The  procedure 
described  below,  while  somewhat  involved,  has  been  found  to  work 
and  it  is  strongly  recommended  that  it  be  followed  for  future 
modifications. 

The  program  segment  in  Field  2 should  be  written  in  a self 
contained  form  so  that  it  can  be  assembled^  in  isolation  from 
the  rest  of  the  program.  After  assembly  the  program  segment  should 
be  single  pass  loaded  into  Field  2 and  saved  by 

SAVE  FC29!  core  limits;  7600. 


For  the  required  format  of  core  limits  see  reference  12. 

The  modified  program  segment  resident  in  Field  0 should  be 
assembled  into  a binary  file,  MODS  say.  The  two  binary  files 
comprising  FOCAL,  FOCI  and  F0C2  along  with  the  8K  overlay  FC8K 
should  also  be  on  the  disk.  Fields  0 and  1 are  then  loaded  as 
follows : 

. LOAD 

* IN-S:F0C1,  S : FOC2 , S:MODS,  S:FC8K 

* OPT- 2 

* ST- 200 

^Initial  dialogue7,8,  answer  questions  | 


A,  B,  C and  D are  four  digit  numbers  typed  by  FOCAL 
following  the  L command. 

Now  save  the  program  as  follows: 


SAVE  ST9KI  (D)  - 7577;  200 
. SAVE  FCL9!  0 - 3377; 

SAVE  NUL9:  10100;  10113 

Now  call  FCL9  by  . FCL9,  stop  computer  and  remove  interrupts 
by  toggling  the  following  patch: 


Location 


Old 

Contents 


New 

Contents 
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Then  again  save  FCL9  as  before: 

i 

. SAVE  FCL9I  0 - 3377; 

The  conplete  modified  FOCAL  is  then  called  by  the  following 
counand  string: 

FC29 

FCL9 

f . CALL  NUL9 

. ST9K 


? 


references 


i 
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Programmes  for  the  Transonic  Wind  Tunnel 
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DEC-D8-ASAA-D 

Digital  Equipment  Publication. 
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Disk  Monitor  System. 

DEC- D8- SDAB- D 

Digital  Equipment  Publication 


APPENDIX i PALD  LISTING  AND  SYMBOL  TABLE 


ABC  4417 
AR6  4432 
BCD  4442 
DEF  4430 
EF6  4434 
F6H  4470 
TPS  4431 
XDYS  4474 
XFNEU  4400 


FIELD  0 
*0035 


0035 

4377 

*0377 

XFNEU-1 

0377 

4474 

*0410 

XDYS 

0410 

4400 

*4400 

XFNEU 

4400 

4453 

XFNEU, 

JMS  I 0053 

/GET  FIRST  ARGUMENT 

4401 

3231 

DCA  TPS 

4402 

1231 

TAD  TPS 

4403 

7440 

SZA 

/READ  INPUT  ? 

4404 

5217 

JMP  ABC 

4403 

4540 

4540 

/PUSHJ 

4404 

4432 

ARG 

/GET  NEXT  ARGUMENT 

4407 

4544 

4544 

/ERROR 

4410 

4453 

JMS  I 0053 

4411 

4222 

4222 

/INSTRUCTION  FIELD  2 

4412 

5777 

JNP  0200 

4413 

4407 

4407' 

/RETURN  UIT>n?EADIN6  IN~fTaI 

4414 

7000 

7000 

/ NORMALISE 

4415 

0000 

0000 

4414 

5534 

JMP  I 0134 

/REENTER  FOCAL 

4417 

7000 

ABC, 

NOP 

4420 

1374 

TAD  (-1 

4421 

7440 

SZA  CLA 

/OUTPUT  TO  MACHMETER  ? 

4422 

5242 

JMP  BCD 

4423 

4540 

4540 

4424 

4432 

ARG 

4423 

4344 

4546 

4424 

4453 

JMS  I 0053 

4427 

4222 

4222 

4430 

5775 

JMP  0260 

4431 

0000 

TPS, 

0000 

4432 

1044 

AR6, 

TAD  0044 

/EVALUATES  ADDITIONAL  ARGUMENTS 

4433 

1374 

TAD  <-254 

/RETURN  TO  CALL+2  IF  ,XXX  - 

4434 

7440 

SZA  CLA 

/OTHERWISE  CALL+1 

4433 

5241 

JMP  .*4 

4434 

4540 

4540 

4437 

1412 

1612 

4440 

7001 

1AC 

4441 

5541 

5541 

/POPJ 

/POPJ 


/START  DATA  LOGGER? 


M-'IM  ' ll_  — . - — 


! 

I 

, 


\ 


1 


4442 

1231 

BCD, 

TAD  TPS 

4443 

1373 

TAD  (-2 

4444 

7640 

SZA  CLA 

4445 

5250 

JHP  DEF 

4446 

6324 

6324 

4447 

5536 

JHP  I 0136 

4450 

1231 

DEF, 

TAD  TPS 

4451 

1372 

TAD  (-3 

4452 

7640 

SZA  CLA 

4453 

5256 

JMP  EF6 

4454 

6364 

6364 

4455 

5536 

JHP  I 0136 

4456 

1231 

EFG, 

TAD  TPS 

4457 

1371 

TAD  < -4 

4460 

7640 

SZA  CLA 

4461 

5270 

JHP  FGH 

4462 

4540 

4540 

4463 

4432 

ARG 

4464 

4566 

4566 

4465 

4453 

JHS  I 0053 

4466 

6222 

6222 

4467 

5770 

JHP  0300 

4470 

1231 

FGH, 

TAD  TPS 

4471 

1367 

TAD  < -5 

4472 

7640 

SZA  CLA 

4473 

4566 

4566 

4474 

6222 

6222 

4475 

5766 

♦ 4476 

JMP  0342 

4476 

4453 

XDYS, 

JHS  I 0053 

4477 

6222 

6222 

4500 

5765 

♦ 4501 

JHP  0400 

4501 

4540 

4540 

4502 

4432 

ARG 

4503 

4566 

4566 

4504 

4453 

JHS  I 0053 

4505 

6222 

6222 

4506 

6221 

6221 

4507 

5764 

JHP  6604 

4564 

6604 

4565 

0400 

4566 

0342 

4567 

7773 

4570 

0300 

4571 

7774 

4572 

7775 

4573 

7776 

4574 

7524 

4575 

0260 

4576 

7777 

4577 

0200 

/STOP  DATA  LOGGER? 


/READ  DATA  LOGGER? 


/CHECK  RECORD  FLAG 


/GET  FIRST  ARGUMENT 

/GET  NEXT  ARGUMENT  - 
/AND  RETURN  TO  6604  - 
/IN  FIELD  2 


r 


h 


A 

0242 

AC 

126  6 

ADC 

1217 

ADI 

1235 

ARC 

0500 

B 

0243 

BCDDIN 

6275 

BCDN 

6400 

C 

0244 

CUT 

0670 

CT 

6464 

CT3 

6465 

DEL 

0245 

DELCO 

0253 

DEP 

0240 

D I AG 

1651 

DOUBLE 

6200 

DOUR 

2000 

DPY 

6611 

DSPLY 

6625 

ERR 

6606 

EXIT 

1264 

FLA6 

1201 

FORM 

6613 

FORMAT 

6655 

HIGH 

6274 

HI6H1 

6272 

INSEL 

0237 

IN2 

1321 

1R4 

0424 

K 1 0 

1272 

K177 

6327 

K7 

6324 

K7400 

6330 

K7600 

6325 

K7760 

6323 

K7770 

6326 

LOT 

1331 

LOU 

6273 

LOU1 

6271 

L02 

1642 

MACH 

0260 

HI 

1267 

HIM 

2034 

M03 

1270 

NE6 

6617 

NEXT 

6600 

NP 

0446 

NUT 

1650 

0272 

PER 

1274 

PLO 

1335 

PLOTA 

1420 

PLOTDB 

1531 

r 


i 


i 


PLOTDX 

1544 

PLOTDY 

1545 

PIOTNV 

1547 

PLOTNA 

1544 

PLOTNX 

1542 

PLOTNY 

1543 

PLOTPN 

1541 

PL0TT1 

1542 

PL0TT2 

1545 

PL0TT3 

1550 

PIOTUT 

1570 

PIOTX 

1400 

PLOT  1 

1427 

PL0T2 

1475 

PLOT! 

1514 

PL0T4 

1540 

ORS 

0447 

TNI 

2033 

TIN 

1271 

TSTOR 

2032 

rue 

0325 

TBOH 

0273 

liBADDR 

4443 

UBARND 

4414 

UBBOX 

4473 

UBCNT 

4444 

UBC0N1 

4477 

UDDO 

4424 

UBGET 

4475 

UBHI6H 

4447 

UBMSUB 

4471 

UBLOOP 

4442 

UBLOU 

4470 

UBLSUB 

4472 

UBOUT 

4442 

UBPTR 

4474 

UBTENL 

4474 

UAL 

1273 

XX 

1332 

XXX 

4414 

XXI 

1444 

xo 

0474 

XI 

0474 

YY 

1333 

YTY 

4415 

YYI 

1445 

YO 

0475 

Yl 

0477 

ZXY 

1334 

FIELD  2 
•4200 

/DIGITAL  8-11 -0-SYH 

/DOUBLE  PRECISION  BCD  TO  BINARY  CONVERSION 
/CALLIN6  SEQUENCE! 

/ JHS  DOUBLE 


/ ADDRESS  OF  HI6H  ORDER  ARGUMENT 

/ RETURN:  C< AC) =HIGH  ORDER  PART 

/ C(LOU)  * LOU  ORDER  PART 

/ALSO  CONTAINS  SIN6LE  PRECISION  DCD  TO  DINARY 
/CALLING  SEQUENCE: 

/ C ( AC  > = 3 BCD  CHARACTERS 

/ JNS  BCDBIN 

/ RETURN:  ANSWER  IN  C(AC) 

4200  OOOO  DOUBLE, 0 

4201  7300  CLA  CLL 

4202  1600  TAD  I DOUBLE/FETCH  ADDRESS 

4203  3271  DCA  L0U1 /STORE 

6204  2200  ISZ  DOUBLE/INCREMENT  RETURN 

6205  1671  TAD  I LOUI/FETCH  HI6H  ORDER 

6206  4275  JNS  BCDBIN/CONVERT  IT 

6207  3272  DCA  HIGH1 /STORE 

6210  2271  ISZ  L0U1 /INCREMENT  POINTER 

6211  1671  TAD  I LOUI/FETCH  LOU  ORDER 

6212  4275  JHS  BCDBIN/CONVERT  IT 

6213  3271  DCA  L0U1 /STORE  IT 

6214  1272  TAD  HIGH1 

6215  7112  CLL  RTR 

6216  7012  RTR 

6217  7010  RAR/HULTIPLY  HIGH  ORDER 

6220  3275  DCA  BCDBIN/PART  BY  128 

6221  1275  TAD  BCDBIN 

6222  0327  AND  K177 

6223  3274  DCA  HI6H 

6224  1275  TAD  BCDBIN 

6225  7010  RAR 

6226  0325  AND  K7600 

6227  3273  DCA  LOU 

6230  1272  TAD  HIGH1/MJLTIPLY  HIGH  ORDER 

6231  7104  CLL  RAL/BY  THREE 

6232  1272  TAD  HIGH1 /FORM  1 28*HIGH-3*HIGH 

6233  7141  CIA  CLL 

6234  1273  TAD  LOU 

6235  3273  DCA  LOU 

6236  7420  SNL 

6237  7040  CMA 

6240  1274  TAD  HIGH 

I 6241  3274  DCA  HIGH/1 25*HIGH 

6242  1274  TAD  HIGH/NOU  MULTIPLY  BY  8 

6243  7106  CLL  RTL 

6244  7004  RAL 

I 6245  0326  AND  K7770/MASK  9 BITS 

6246  3274  DCA  HIGH 

6247  1273  TAD  LOU 

6250  7106  CLL  RTL 

6251  7004  RAL 

6252  3273  DCA  LOU 

6253  1273  TAD  LOU 

. 6254  7004  RAL 

6255  0324  AND  K7/3  BITS 

6256  1274  TAD  HI6H 

6257  3274  DCA  HI6H 


6260 

1273 

TAD  LOU 

6261 

0326 

AND  K7770/V  BITS 

6262 

7100 

CLL 

6263 

1271 

TAD  LOUt/ADD  LOU  ORDER  PART 

6264 

3273 

DCA  LOU/STORE  LOU  ORDER  PART 

6265 

1274 

TAD  HIGH 

6266 

7430 

S2L 

6267 

7001 

1 AC/CARRY 

6270 

5600 

JHP  I DOUBLE 

6271 

0000 

LOUt ,0 

6272 

0000 

HI6H1 ,0 

6273 

0000 

LOU,  0 

6274 

0000 

HIGH,0 

/SINGLE  PRECISION  CONVERSION 

6275 

0000 

BCDBIN, 0 

6276 

3274 

DCA  HIGH 

6277 

1274 

TAD  HIGH 

6300 

0330 

AND  K7400/LEFT  DIGIT 

6301 

7112 

CLL  RTR 

6302 

3273 

DCA  LOU 

6303 

1273 

TAD  LOU 

6304 

7010 

RAR 

6305 

1273 

TAD  LOU 

6306 

7041 

CIA 

6307 

1274 

TAD  HIGH 

6310 

3274 

DCA  HIGH 

6311 

1274 

TAD  HI6H 

6312 

0323 

AND  K7760 

6313 

7112 

CLL  RTR 

6314 

3273 

DCA  LOU 

6315 

1273 

TAD  LOU 

6316 

7010 

RAR 

6317 

1273 

TAD  LOU 

6320 

7041 

CIA 

6321 

1274 

TAD  HIGH 

6322 

5675 

JHP  I BCDBIN 

6323 

7760 

K7760,7760 

6324 

0007 

K7,7 

6325 

7600 

K7600,7600 

6326 

7770 

K7770,7770 

6327 

0177 

K177,177 

6330 

7400 

K7400,7400 

FIELD  2 
• 6400 

6400 

0000 

BCDH,  0 

6401 

3270 

DCA  UDLOU 

6402 

1600 

TAD  I BCDH 

6403 

3267 

DCA  UDHIGH 

6404 

1262 

TAD  UDLOOP 

6405 

3266 

DCA  UDCNT 

6406 

1263 

TAD  UDADDR 

6407 

3276 

DCA  UDPTR 

6410 

2200 

ISZ  BCDH 

6411 

1377 

TAD  (-2 

6412 

3264 

DCA  CT 

6413 

1376 

TAD  (-3 

y 


6414 

3265 

DCA 

CT3 

64)5 

3273 

DCA 

UDBOX 

6416 

1676 

UDARND, 

TAD 

I UDPTR 

6417 

2276 

ISZ 

UBPTft 

6420 

3271 

DCA 

UDHSUB 

6421 

1676 

TAD 

I UDPTR 

6422 

2276 

ISZ 

UDPTR 

6423 

3272 

DCA 

UDLSUB 

6424 

7100 

UDDO, 

CLL 

6425 

1272 

TAD 

UDLSUB 

6426 

1270 

TAD 

UDLOU 

6427 

3274 

DCA 

UDTEAL 

6430 

7004 

RAL 

6431 

1271 

TAD 

UDHSUB 

6432 

1267 

TAD 

UDHIGH 

6433 

7420 

SNL 

6434 

5242 

JAP 

UDOUT 

6435 

2273 

ISZ 

UDBOX 

6436 

3267 

DCA 

UDHIGH 

6437 

1274 

TAD 

UDTEAL 

6440 

3270 

DCA 

UDLOU 

6441 

5224 

JAP 

UDDO 

6442 

7200 

UDOUT, 

CLA 

6443 

1273 

TAD 

UDBOX 

6444 

2265 

ISZ 

CT3 

6445 

7410 

SKP 

6446 

5254 

JAP 

. +6 

6447 

7106 

CLL 

RTL 

6450 

7106 

CLL 

RTL 

6451 

3273 

DCA 

UDBOX 

6452 

2266 

ISZ 

UDCNT 

6453 

5216 

JAP 

UDARND 

6454 

2264 

ISZ 

CT 

6455 

3775 

DCA 

ONEA 

6456 

3774 

DCA 

TUOA 

6457 

2266 

ISZ 

UDCNT 

6460 

5213 

JAP 

UDARND-3 

6461 

5600 

JAP 

I BCDA 

6462 

7772 

UDLOOP, 

-6 

6463 

6477 

UDADDR, 

UDC0N1 

6464 

0000 

CT, 

0 

6465 

0000 

CT3, 

0 

6466 

0000 

UDCNT , 

0 

6467 

0000 

UDHIDH, 

0 

6470 

0000 

UDLOU, 

0 

6471 

0000 

UDHSUB, 

0 

6472 

0000 

UDLSUB, 

0 

6473 

0000 

UDBOX, 

0 

6474 

0000 

UDTEAL, 

0 

6475 

0000 

UDGET, 

0 

6476 

0000 

UDPTR, 

0 

6477 

7747 

UDC0N1 , 

7747 

6500 

4540 

4540 

6501 

7775 

7775 

/-10 

6502 

4360 

4360 

6503 

7777 

7777 

r 


/END  TAPE  4 


6504 

6030 

6030 

6505 

7777 

7777 

6506 

7634 

7634 

6507 

7777 

7777 

6510 

7766 

7766 

6511 

7777 

7777 

6512 

7777 

7777 

6574 

6575 

6576 

6577 

0200 

0201 

0202 

0203 

0204 

0205 

0206 
0207 
0210 
0211 
0212 

0213 

0214 

0215 

0216 
0217 
0220 
0221 
0222 

0223 

0224 

0225 

0226 
0227 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0250 

0251 


0273 

0272 

7775 

7776 

6221 

3237 

6334 

6331 
1237 
6334 
7300 
4245 
7300 

6332 

3240 
1237 
6334 
7300 
4245 
7300 
6322 

3241 
6334 
4777 
7000 
6201 

3642 
6221 
1776 
6201 

3643 
1375 

3644 
6202 
5774 
0000 
0000 
0000 


PAUSEFIELD  2 


*0200 

6221 

DCA  INSEL 
6334 

6331 

TAD  INSEL 
6334 
CLA  CLL 
JHS  DEL 
CLA  CLL 

6332 
DCA  DEP 
TAD  INSEL 
6334 

CL''  CLL 
JHS  DEL 
CLA  CLL 
6322 

DCA  DEP+1 
6334 

JHS  DOUM 
NOP 
6201 
DCA  I A 
6221 
TAD  LOU 
6201 
DCA  I B 
TAD  (27 
DCA  I C 
6202 

JHP  4413 
INSEL,  0000 
DEP,  0000 
0000 


0045 

A, 

0045 

0046 

0046 

0044 

c, 

0044 

0000 

DEL, 

OOOO 

1 373 

TAD  (7470 

3253 

DCA  DELCO 

2253 

ISZ  DELCO 

5250 

JHP  .-1 

/FNEU(O) 

/DATA  FIELD  2 
/DEVICE  NUMBER 
/LOAD  INPUT  SELECTOR 
/CLEAR  RECORD  FLAG 

/LOAD  INPUT  SELECTOR 


/READ  BYTE  2 


/READ  BYTE  1 

/O  IN  INPUT  SELECTOR 
/CONVERT  TO  BINARY 


0252 

5645 

JMP  I DEL 

0253 

OOOO 

DELCQ, 

*260 

0000 

0230 

6221 

MACH , 

6221 

0261 

4772 

JHS  DC DM 

0262 

0000 

0 

0263 

1273 

1 AD  TUOH 

0264 

6304 

6304 

0265 

7300 

CLA  CLL 

0266 

1272 

TAD  ONEH 

0267 

6316 

6316 

0270 

7300 

CLA  CLL 

0271 

5225 

JMP  INSEl-1 

0272 

0000 

ONEH, 

0000 

0273 

0000 

TUOH, 

*300 

0000 

0300 

6221 

6221 

0301 

7000 

NOP 

0302 

323? 

DCA  INSEL 

0303 

1237 

TAD  INSEL 

0304 

7440 

SZA 

0305 

5325 

JMP  TUO 

0306 

6351 

6351 

0307 

6341 

6341 

0310 

5307 

JMP  .-1 

0311 

7300 

CLA  CLL 

0312 

6344 

6344 

0313 

6351 

6351 

0314 

4771 

JMS  BCDBIN 

0315 

6201 

6201 

0316 

3643 

DCA  I B 

0317 

3642 

DCA  I A 

0320 

1375 

TAD  (27 

0321 

3644 

DCA  I C 

0322 

7000 

NOP 

0323 

6202 

6202 

0324 

5774 

JMP  4413 

0325 

7300 

TUO, 

CLA  CLL 

0326 

6341 

6341 

0327 

5331 

JMP  .+2 

0330 

7402 

HLT 

0331 

7300 

CLA  CLL 

0332 

6352 

6352 

0333 

3240 

DCA  DEP 

0334 

6354 

6354 

0335 

3241 

DCA  DEP*1 

0336 

7000 

NOP 

0337 

5223 

♦ 342 

JMP  INSEL-1 

0342 

6221 

6221 

0343 

6311 

6311 

0344 

5351 

JMP  .+5 

0345 

6331 

6331 

0346 

7200 

CLA 

0347 

7001 

IAC 

0350 

5225 

JMP  INSEL-1 

/FNEU<  t ) 


/FNEU<4) 

/SKIP  FOR  FIRST  BYTE 

/CLEAR  DATA  LOGGER  FLAG 
/SKIP  ON  DATA  LOGGER  FLAG 

/READ  BYTE  1 
/CLEAR  FLAG 


/SKIP  ON  FLAG 
/TIMING  FOUL  UP 
/READ  BYTE  2 
/READ  BYTE  3 

4 /RETURN  WITH  DATA 
/FNEll  ( 5 ) 


0351 

7200 

CLA 

0352 

3774 

DCA 

LOU 

0353 

5225 

JHP 

INSEL-12 

0371 

4275 

0372 

4400 

0373 

7470 

0374 

4413 

0375 

0027 

0374 

4273 

0377 

2000 

*400 

0400 

4221 

4221 

0401 

3777 

DCA 

INSEL 

0402 

1777 

TAD 

INSEL 

0403 

7440 

SZA 

0404 

5774 

JHP 

PER 

0405 

4775 

JUS 

NEXT 

0404 

7300 

CLA 

CLL 

0407 

1777 

TAD 

INSEL 

0410 

7440 

SZA 

0411 

5214 

JHP 

.♦5 

0412 

1374 

TAD 

(0004 

0413 

3773 

DCA 

FORH 

0414 

4772 

JHS 

DPY 

0415 

5771 

JHP 

INSEL-12 

0414 

1370 

TAD 

<7777 

0417 

7440 

SZA 

CLA 

0420 

5300 

JHP 

ARC 

0421 

4224 

JHS 

IN4 

0422 

4244 

JHS 

NP 

0423 

5247 

JHP 

ORS 

0424 

0000 

IN4, 

0 

0425 

4775 

JHS 

NEXT 

0424 

1777 

TAD 

INSEL 

0427 

4747 

JHS 

NEG 

0430 

3274 

DCA 

XO 

0431 

4775 

JHS 

NEXT 

0432 

1777 

TAD 

INSEL 

0433 

4747 

.JHS 

NEG 

0434 

3275 

DCA 

YO 

0435 

4775 

JHS 

NEXT 

0434 

1777 

TAD 

INSEL 

0437 

4747 

JHS 

NE6 

0440 

3274 

DCA 

XI 

0441 

4775 

JHS 

NEXT 

0442 

1777 

TAD 

INSEL 

0443 

4747 

JHS 

NEG 

0444 

3277 

DCA 

Y1 

0445 

5424 

JHP 

I IN4 

0444 

0000 

NP, 

0 

0447 

1344 

TAD 

<0002 

0450 

3773 

DCA 

FORH 

0451 

4772 

JHS 

DPY 

0452 

1274 

TAD 

XO 

0453 

3745 

DCA 

XXX 

0454 

1275 

TAD 

YO 

/FDIS 

/FIRST  ARGUMENT 


/SCREEN? 

/PLOTTER 

/GET  NEXT  ARGUMENT 


/ERASE  SCREEN 


/LINEAR  VECTOR? 


/GETS  XO,X1fYO*Y1 


/INVISIBLE  VECTOR  TO  XO,YO 
/RESET  INTEGRATORS 


/INVISIBLE  VECTOR 


i 

i 


i 


0455 

3764 

0456 

1363 

0457 

3773 

0460 

4772 

0461 

7300 

0462 

12/6 

0463 

3765 

0464 

1277 

0465 

3764 

0466 

5646 

0467 

7300 

QRS 

0470 

136? 

04/1 

37/3 

0472 

4772 

0473 

5771 

0474 

0000 

xo, 

0475 

0000 

n, 

0476 

0000 

XI, 

0477 

0000 

rtf 

0500 

1777 

ARC 

0501 

1361 

0502 

7640 

0503 

5312 

0504 

4224 

0505 

4246 

0506 

1360 

0507 

3773 

0510 

4772 

0511 

5771 

0512 

1777 

0513 

1357 

0514 

7640 

0515 

5324 

0516 

4224 

0517 

4246 

0520 

1356 

0521 

3773 

0522 

4772 

0523 

5771 

0524 

1777 

0525 

1355 

0526 

7640 

0527 

5335 

0530 

7300 

0531 

1354 

0532 

3773 

0533 

4772 

0534 

5771 

0535 

1777 

0536 

1353 

0537 

5752 

0552 

0600 

0553 

7773 

0554 

1400 

0555 

7774 

0556 

0051 

OCA 

YYT 

TAO 

(0440 

OCA 

FORM 

JHS 

DPY 

CIA 

CLL 

TAO 

XI 

OCA 

XXX 

TAD 

Y 1 

OCA 

YYY 

JHP 

I NP 

CLA 

CLL 

TAD 

<0441 

OCA 

FORH 

JHS 

DPY 

JHP 

INSEL-12 

0 

0 

0 

0 

TAO 

INSEL 

TAD 

<7776 

S2A 

CLA 

JHP 

.♦7 

JHS 

IN4 

JHS 

HP 

TAD 

<0211 

DCA 

FORH 

JHS 

DPY 

JHP 

INSEL-12 

TAD 

INSEL 

TAO 

<7775 

SZA 

CLA 

JHP 

.♦7 

JHS 

IN4 

JHS 

HP 

TAO 

<0051 

DCA 

FORH 

JHS 

DPY 

JHP 

INSEL- 1 2 

TAD 

INSEL 

TAO 

<7774 

SZA 

CLA 

JHP 

. *6 

CLA 

CLL 

TAD 

<1400 

DCA 

FORH 

JHS 

DPY 

JHP 

INSEL-12 

TAD 

INSEL 

TAD 

<7773 

JHP 

600 

* 


/GET  XUY1 


/VISIBLE  VECTOR 


/SHORT  ARC? 


/LONG  ARC? 


/DISPLAY  CURSOR? 


V 


0557 

7775 

0560 

0211 

0561 

7776 

0562 

0441 

0563 

0440 

0564 

6615 

0565 

6614 

0566 

0002 

0567 

6617 

0570 

7777 

0571 

0225 

0572 

6611 

0573 

6613 

0574 

0004 

0575 

6600 

0576 

1274 

0577 

0237 

• 600 

0600 

7640 

SZA 

CL  A 

0601 

5210 

JHP 

.+7 

0602 

4777 

JUS 

IH4 

0603 

4776 

JHS 

NP 

0604 

1375 

TAD 

(1001 

0605 

3774 

DCA 

FORH 

0606 

4773 

JHS 

DPT 

0607 

5772 

JHP 

INSEL-12 

0610 

1771 

TAD 

INSEL 

0611 

1370 

TAD 

<7772 

0612 

7640 

SZA 

CLA 

0613 

5231 

JHP 

.V  u 

0614 

4777 

JHS 

IN4 

0615 

1767 

TAD 

XO 

0616 

1366 

TAD 

(5 

0617 

3767 

DCA 

XO 

0620 

4776 

JHS 

HP 

0621 

1365 

TAD 

(7774 

0622 

3270 

DCA 

CHT 

0623 

1364 

TAD 

(0051 

0624 

3774 

DCA 

FORM 

0625 

4773 

JHS 

DPr 

0626 

2270 

ISZ 

CNT 

0627 

5225 

JHP 

.-2 

0630 

5772 

JHP 

INSEL-12 

0631 

1771 

TAD 

INSEL 

0632 

1363 

TAD 

(7771 

0633 

7640 

SZA 

CLA 

0634 

5762 

JHP 

800 

0635 

4777 

JHS 

IN4 

0636 

1767 

TAD 

XO 

0637 

1361 

TAD 

(-5 

0640 

3767 

DCA 

XO 

0641 

1760 

TAD 

XI 

0642 

1366 

TAD 

(5 

0643 

3760 

DCA 

XI 

0644 

4776 

JHS 

NP 

0645 

1357 

TAD 

(0441 

/POINT? 


/CIRCLE  SYMBOL? 


/CROSS  SYMBOL? 


0646 

3774 

DCA  FORK 

064? 

4773 

JUS  OPY 

0650 

1767 

TAD  XO 

0651 

1366 

TAD  (5 

0652 

3767 

DCA  XO 

0653 

1767 

TAD  XO 

0654 

3760 

DCA  XI 

0655 

1756 

TAD  ro 

0656 

1361 

TAD  (-5 

065? 

3756 

DCA  YO 

0660 

1755 

TAD  Y1 

0661 

1366 

TAD  (5 

0662 

3755 

DCA  Y1 

0663 

4?76 

JNS  NP 

0664 

1357 

TAD  (0441 

0665 

3774 

DCA  FORA 

0666 

4773 

JHS  DPY 

0667 

5772 

JAP  IXSEL-12 

0670 

0000  CNT , 

0 

0755 

0477 

0756 

0475 

0757 

0441 

[i  0760 

0476 

0761 

7773 

0762 

1000 

0763 

7771 

0764 

0051 

0765 

7774 

0766 

0005 

0767 

0474 

0770 

7772 

0771 

0237 

0772 

0225 

0773 

6611 

0774 

6613 

0775 

1001 

0776 

0446 

0777 

' 

1 

0424 

♦ 800 

1000 

1777 

TAD  INSEL 

1001 

1376 

TAD  <7770 

1002 

7640 

SZA  CLA 

r,  1003 

5212 

JAP  .*7 

1004 

1375 

TAD  (1400 

1005 

6062 

6062 

1006 

4774 

JNS  ADC 

1007 

3773 

DCA  LOU 

1010 

4772 

JNS  NIN 

1011 

5771 

JAP  INSEL- 1 2 

1012 

1013 

1777 

TAD  INSEL 

1370 

TAD  (7767 

1014 

7640 

SZA  CLA 

1015 

5767 

JNP  FLA6 

1016 

1366 

TAD  (1440 

1017 

6062 

6062 

1020 

• 

k 

4774 

JNS  ADC 

/READ  X CURSOR? 


/SORT  OUT  NEGATIVE  SION 


/READ  Y CURSOR 


1 


DC A LOU 
JNS  NIN 
JNP  IMSEL-1 2 


f i 


\ 

■ 

i 


1021 

3773 

1022 

4772 

1023 

5771 

1166 

1440 

1167 

1201 

1170 

7767 

1171 

022S 

1172 

2034 

1173 

6273 

1174 

1217 

1175 

1400 

1176 

7770 

1177 

0237 

•6600 

6600 

0000 

NEXT, 

6601 

6201 

6602 

6202 

6603 

5777 

6604 

3776 

6605 

5600 

6606 

6201 

ERR, 

6607 

6202 

6610 

5775 

6611 

0000 

DPY, 

6612 

4225 

6613 

0000 

FORN, 

6614 

0000 

XXX, 

66t5 

0000 

YYY, 

6616 

5611 

6617 

0000 

NE6, 

6620 

7500 

6621 

5617 

6622 

0374 

6623 

1373 

6624 

5617 

6625 

0000 

DSPLY 

6626 

7300 

6627 

1625 

6630 

2225 

6631 

6063 

6632 

3255 

6633 

1625 

6634 

6064 

663S 

7200 

6636 

2225 

6637 

6071 

6640 

5237 

6641 

1625 

6642 

6065 

6643 

7200 

6644 

2225 

6645 

6071 

6646 

5245 

6647 

1255 

6650 

6066 

6651 

7200 

0 

6201 
6202 
JMP  4501 
DCA  INSEL 
JNP  I NEXT 
6201 
6202 

JNP  4425 
0 

JHS  DSPLY 
0 
0 
0 

JNP  I DPY 
0 

SNA 

JNP  I NEC 
AND  (0 777 
TAD  (1000 
JNP  I NEG 
0 

CLA  CLL 
TAD  I DSPLY 
ISZ  DSPLY 

6063 

DCA  FORMAT 
TAD  I DSPLY 

6064 
CLA 

ISZ  DSPLY 
6071 
JNP  .-1 
TAD  I DSPLY 

6065 
CLA 

ISZ  DSPLY 
6071 
JNP  .-1 
TAD  FORMAT 

6066 
CLA 


/GETS  NEXT  ARGUMENT 


/ERROR  RETURN 


/SORTS  OUT  NEGATIVE  SIGN  - 
/OF  CURSOR  LOCATION 


/SUBROUTINE  TO  DRIVE  DISPLAY 


6452 

6071 

6071 

6453 

5252 

JMP  .-1 

6454 

5625 

JMP  I DSPLY 

6455 

0000 

FORMAT , 0 

PAUSE 

/DIGITAL  8-12-U 
/PLOT  SUBROUTINE 
/CALLING  SEQUENCE 

/ C < AC ) »-1 ; INITIALIZE 

/ Cl  AC)*  0;  PLOT 

UITH  PEN  DOUN 

/ C(AC)=  1;  PLOT  UITH 

PEN  UP 

/ JMS  PLOT X 

/ X CO-ORDINATE 

<IN 

STEPS)  (RETURN  IF  AC*- 

/ Y CO-ORDINATE 

<IN 

STEPS) 

FIELD  2 

6773 

1000 

677 4 

0777 

6775 

4425 

6776 

0237 

6777 

4501 

♦ 1400 

1400 

0000 

PLOTX,  0 

1401 

7510 

SPA 

/HOVE  THE  PEN? 

1402 

5220 

JMP  PLOTA 

/NO:  CONTINUE 

1403 

1361 

TAD  PLOTPN 

/ADD  PEN  STATUS 

1404 

7112 

CLL  RTR 

1405 

7710 

SPA  CLA 

/ANY  CHANGE? 

1406 

5227 

JMP  PLOT  1 

/NO:  CONTINUE 

1407 

7620 

SNL  CLA 

1410 

5214 

JMP  .*4 

/LOUER  THE  PEN 

1411 

3361 

DCA  PLOTPN 

/RAISE  THE  PEN 

1412 

6504 

6504 

1413 

5216 

JMP  .+3 

1414 

2361 

ISZ  PLOTPN 

/LOUER  THE  PEN 

1415 

6524 

6524 

1416 

4370 

JMS  PLOTUT 

/UAIT  FOR  FLAG 

1417 

5227 

JMP  PL0T1 

/CONTINUE 

1420 

7200 

PLOTA,  CLA 

1421 

6504 

6504 

1422 

3361 

DCA  PLOTPN 

1423 

3362 

DCA  PLOTNX 

/O  TO  X CO-ORDINATE 

1424 

3363 

DCA  PLOTNY 

/O  TO  Y CO-ORDINATE 

1425 

4370 

JMS  PLOTUT 

1426 

5600 

JMP  I PLOTX 

/DIGITAL  8-12-U 
/PAGE  2 

/PICK  UP  ARGUMENTS 

1427 

1362 

PL0T1 ,TAD  PLOTNX  /FETCH 

PREVIOUS  X CO-ORDINATE 

1430 

7141 

CIA  CLL 

1431 

1600 

TAD  I PLOTX  /FORM  NX 

-NPX 

1432 

7420 

SNL  /L*0»  NX<NPX 

1433 

7041 

CIA 

1434 

3364 

DCA  PLOTDX  /ABSOLUTE 

VALUE  OF  DIFFERENCE 

1435 

7004 

RAL 

1436 

3367 

DCA  PLOTHV  /SAVE  SIGN  BIT 

1437 

1600 

TAD  I PLOTX  /SET  NEU 

1440 

3362 

DCA 

PLOTNX  /PREVIOUS  X 

1441 

2200 

IS2 

PLOTX  /INCREMENT  POINTER 

1442 

1363 

TAD 

PLOTNY  /FETCH  PREVIOUS  f CO-ORDINATE 

1443 

7141 

CIA 

CLL 

1444 

1600 

TAD 

I PLOTX  /FORM  NY-NPY 

1445 

7420 

SNL 

/<=0:  NPY<NY 

1 446 

7041 

CIA 

1447 

3365 

DCA 

PLOTDY  /ABSOLUTE  VALUE  OF  DIFFERENCE 

1450 

1367 

TAD 

PLOTNV  /SAVE  SIGN  BIT 

1451 

7004 

RAL 

/BIT  10(1)=  DRUM-DOUN( POSITIVE) 

1452 

3367 

DCA 

PLOTNV  /BIT  11(1 )=PEN-LEFT  (POSITIVE) 

1453 

1600 

TAD 

I PLOTX  /SET  NEU 

1454 

3363 

DCA 

PLOTNY  /PREVIOUS  Y 

1455 

2200 

ISZ 

PLOTX  /INCREMENT  POINTER 

1456 

1364 

TAD 

PLOTDX 

1457 

7141 

CIA 

CLL 

1460 

1365 

TAD 

PLOTDY 

1461 

7620 

SNL 

CLA  /L=0:  DELTA  Y < DELTA  X 

1462 

5275 

JNP 

PL0T2 

1463 

1364 

TAD 

PLOTDX  /REVERSE  NUMBERS 

1464 

3366 

DCA 

PLOTNA 

1465 

1365 

TAD 

PLOTDY 

1466 

3364 

OCA 

PLOTDX 

1467 

1366 

TAD 

PLOTNA 

1470 

3365 

DCA 

PLOTDY 

1471 

7001 

IAC 

/SET  MAJOR  NOTION 

1472 

0367 

AND 

PLOTNV  /INSTRUCTION 

1473 

1342 

TAD 

PL0TT1 

1474 

5300 

JNP 

.♦4 

/DIGITAL  B-12-U 

/PAGE  3 

1475 

1367 

PL0T2. TAD  PLOTMV 

1476 

7110 

CLL 

RAR 

1477 

13*5 

TAD 

PL0TT2 

1500 

3366 

DCA 

PLOTNA 

1501 

1766 

TAD 

I PLOTNA 

1502 

3340 

DCA 

PL0T4 

1503 

1367 

TAD 

PLOTNV  /SET  COMBINED  MOTION 

1504 

1350 

TAD 

PL0TT3 

1505 

3367 

DCA 

PLOTMV 

1506 

1767 

TAD 

I PLOTMV 

1507 

3331 

DCA 

PLOTDB 

1510 

1364 

TAD 

PLOTDX 

1511 

7110 

CLL 

RAR 

1512 

3366 

DCA 

PLOTNA 

1513 

1364 

TAD 

PLOTDX 

1514 

7040 

CHA 

1515 
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